SPARKWARE

        IF NOT EXIST "API.$$$" THEN CLS
        BOX(5,10,20,70,48,112,1,1,"","")
        QPRINT("The 1stReader Christmas Card",7,-1,-1)
        SCREEN(2,SAVE)
        QPRINT("You can press any key to stop the music",9,-1,-1)
        QPRINT("and move on to the next picture.")
        QPRINT("Sparkware",13,-1,-1)
        QPRINT("Post Office Box 386")
        QPRINT("Hendersonville, TN  37077")
        QPRINT("(615) 230-8822   Bulletin Board",17,-1,-1)
        QPRINT("(615) 230-MAIL   Office (10-5 weekdays)")
        PAUSE 5

        IF NOT PLAY_AVAILABLE THEN GOTO TOP
        SCREEN(2,RESTORE)
        QPRINT("We can play these Christmas carols through a MIDI",9,-1,-1)
        QPRINT("device if you have one connected to your system.")
        QPRINT("Otherwise, the carols will play through your sound card.")
        DIALOG_BOX(1,0,83,1," Sound card ",13,13,112,112,1,116,15)
        DIALOG_BOX(2,0,77,2,"  Use MIDI  ",13,32,112,112,1,116,15)
        DIALOG_BOX(3,0,27,3,"    Quit    ",13,51,112,112,1,116,15)
        QPRINT("Press the highlighted key to select your choice",18,-1,-1)
        GET(Choice$,1)
        CLEAR_BOXES
        IF COMPARE(Choice$,"2") THEN MPU401 ON
        IF COMPARE(Choice$,"3") THEN GOTO DONE

:TOP
        BLOAD("SANTA.BIN")
        VOC_FILE "WELCOME.VOC"
        PLAY_FILE("SLEIGHGM.MID")
        IF NOT PLAY_AVAILABLE THEN PAUSE 5

        BLOAD("FIRE.BIN")
        VOC_FILE "WISHES.VOC"
        PLAY_FILE("WASS32.MID")
        IF NOT PLAY_AVAILABLE THEN PAUSE 5

        BLOAD("HOUSE.BIN")
        PLAY_FILE("JNGBELL2.MID")
        IF NOT PLAY_AVAILABLE THEN PAUSE 5

        BLOAD("SINGING.BIN")
        PLAY_FILE("MIDNIGHT.MID")
        IF NOT PLAY_AVAILABLE THEN PAUSE 5

        BLOAD("TREE.BIN")
        PLAY_FILE("JBELROCK.MID")
        IF NOT PLAY_AVAILABLE THEN PAUSE 5

        BLOAD("SNOWMAN.BIN")
        PLAY_FILE("LETITSNO.MID")
        IF NOT PLAY_AVAILABLE THEN GOTO DONE

        BLOAD("CANDLE.BIN")
        PLAY_FILE("TORCH32.MID")
        IF NOT PLAY_AVAILABLE THEN PAUSE 5

        SCREEN(2,SAVE)
        BOX(10,10,14,70,112,112,1,1,"Press the [ESC] key to quit","")
        PAUSE 10
        SCREEN(2,RESTORE)
        IF LASTKEY 27 THEN GOTO DONE

        GOTO TOP

:DONE
        IF NOT PLAY_AVAILABLE THEN PAUSE 5
        DISPLAY OFF
        SHOW "GOODBYE.ANS"
        DISPLAY ON
        VOC_FILE "GOODBYE.VOC"
        IF NOT VOC_AVAILABLE THEN PAUSE 5

        BOX(5,10,20,70,112,112,1,1,"","")
        QPRINT("The 1stReader Install Module",7,-1,-1)
        QPRINT("is for the use of Sparkware customers only")
        QPRINT("For information about licensing this program",10)
        QPRINT("please contact")
        QPRINT("Sparkware",13,-1,-1)
        QPRINT("Post Office Box 386")
        QPRINT("Hendersonville, TN  37077")
        QPRINT("(615) 230-8822   Bulletin Board",17,-1,-1)
        QPRINT("(615) 230-MAIL   Office (10-5 weekdays)")
        PAUSE 5

        SCREEN(1,RESTORE)
        MPU401 OFF

